<%
dim c ,r
dim visitor_name, email, address, id, phone, user_name, user_pass, user_pass2
visitor_name=request.form("visitor_name")
email=request.form("email")
address=request.form("address")
id=request.form("id")
phone=request.form("phone")
content=request.form("content")
if content <> nil then content=replace(content,vbcrlf,"
")
'''user_name=request.form("user_name")
'''user_pass=request.form("user_pass")
'''user_pass2=request.form("user_pass2")
if id =nil then id="0"
if email =nil or email ="" then email="0"
if visitor_name=nil or phone=nil then
%>
| |
| , לא כל שדות החובה הוזנו |
| . אנא מלא את השדות ונסה שנית |
| לחץ כאן לתיקון השגיאה |
<%
else
%>
<%
if not err then
'''''''''Auto send mail response!
if email <> "0" then
SMTPServer = "mail.biz4all.co.il"
set msg = Server.CreateOBject( "JMail.Message" )
'msg.Logging = true
msg.silent = true
'msg.LazySend = False
strTO = email
msgSubject = "" & biz_name & "
" & visitor_name & ", שלום." & "
" & "תודה שיצרת עימנו קשר." & "
" & "אנו נשתדל ליצור עימך קשר בהקדם." & "
בכבוד רב, " & biz_name & "
"
'''''''''send to user ...
''''''''msg.Bcc = ""
msg.FromName = biz_name
msg.From = "noreplay@biz4all.co.il"
msg.AddRecipient strTO, ""
msg.Subject = "Thank you from " & biz_name
msg.Body = msgSubject
'msg.CharSet = "IL-ASCII"
msg.ContentType = "text/html"
msg.MailServerUserName = "noreplay@biz4all.co.il"
msg.MailServerPassword = "gdf87dfghdsf6s"
if not msg.Send( SMTPServer ) then
' Response.write "תודה רבה."
' Response.write "
Error Error
"
else
' Response.write "תודה רבה."
'Response.Write "
ok ok ok"
end if
end if
set msg = Nothing
'''send to administrator
SMTPServer = "mail.biz4all.co.il"
set msg = Server.CreateOBject( "JMail.Message" )
'msg.Logging = true
msg.silent = true
'msg.LazySend = False
msgSubject = "" & biz_name & "
" & " מנהל אתר " & ", שלום." & "
" & "קיבלת הודעה מהאתר." & "
" & "שם: " & visitor_name & "
אימייל: " & email & "
כתובת: " & address & "
טלפון: " & phone & "
" & "תוכן ההודעה:
" & content & "
בכבוד רב, " & biz_name & "
"
strTO = biz_mail
''''''''msg.Bcc = ""
msg.FromName = biz_name
msg.From = "noreplay@biz4all.co.il"
msg.AddRecipient strTO, ""
msg.Subject = "Message from " & biz_name & " web site"
msg.Body = msgSubject
'msg.CharSet = "IL-ASCII"
msg.ContentType = "text/html"
msg.MailServerUserName = "noreplay@biz4all.co.il"
msg.MailServerPassword = "gdf87dfghdsf6s"
if not msg.Send( SMTPServer ) then
else
end if
set msg = Nothing
'''''''''END send mail response!
%>
| |
| תודה לך <%=visitor_name%> והמשך גלישה נעימה |
| לעמוד הראשי
|
<%
else
'''response.write "errrororor"
end if
end if
%>